home *** CD-ROM | disk | FTP | other *** search
/ BCI NET 2 / BCI NET 2.iso / archives / programming / source / a2.0bemacs-src.lha / Emacs-19.25 / src / eval_protos.h < prev    next >
Encoding:
C/C++ Source or Header  |  1994-08-18  |  4.9 KB  |  304 lines
  1. /* Prototypes for functions defined in
  2. eval.c
  3.  */
  4.  
  5. extern struct backtrace * backtrace_list;
  6.  
  7. extern struct catchtag * catchlist;
  8.  
  9. extern int Qautoload;
  10.  
  11. extern int Qmacro;
  12.  
  13. extern int Qexit;
  14.  
  15. extern int Qinteractive;
  16.  
  17. extern int Qcommandp;
  18.  
  19. extern int Qdefun;
  20.  
  21. extern int Qinhibit_quit;
  22.  
  23. extern int Vinhibit_quit;
  24.  
  25. extern int Vquit_flag;
  26.  
  27. extern int Qmocklisp_arguments;
  28.  
  29. extern int Vmocklisp_arguments;
  30.  
  31. extern int Qmocklisp;
  32.  
  33. extern int Qand_rest;
  34.  
  35. extern int Qand_optional;
  36.  
  37. extern int Qdebug_on_error;
  38.  
  39. extern int Vrun_hooks;
  40.  
  41. extern int Vautoload_queue;
  42.  
  43. extern int specpdl_size;
  44.  
  45. extern struct specbinding * specpdl;
  46.  
  47. extern struct specbinding * specpdl_ptr;
  48.  
  49. extern int max_specpdl_size;
  50.  
  51. extern int lisp_eval_depth;
  52.  
  53. extern int max_lisp_eval_depth;
  54.  
  55. extern int debug_on_next_call;
  56.  
  57. extern int Vstack_trace_on_error;
  58.  
  59. extern int Vdebug_on_error;
  60.  
  61. extern int debug_on_quit;
  62.  
  63. extern int when_entered_debugger;
  64.  
  65. extern int Vdebugger;
  66.  
  67. int init_eval_once(void);
  68.  
  69. int init_eval(void);
  70.  
  71. int call_debugger(int arg);
  72.  
  73. int do_debug_on_call(int code);
  74.  
  75. extern struct Lisp_Subr Sor;
  76.  
  77. int For(int );
  78.  
  79. extern struct Lisp_Subr Sand;
  80.  
  81. int Fand(int );
  82.  
  83. extern struct Lisp_Subr Sif;
  84.  
  85. int Fif(int );
  86.  
  87. extern struct Lisp_Subr Scond;
  88.  
  89. int Fcond(int );
  90.  
  91. extern struct Lisp_Subr Sprogn;
  92.  
  93. int Fprogn(int );
  94.  
  95. extern struct Lisp_Subr Sprog1;
  96.  
  97. int Fprog1(int );
  98.  
  99. extern struct Lisp_Subr Sprog2;
  100.  
  101. int Fprog2(int );
  102.  
  103. extern struct Lisp_Subr Ssetq;
  104.  
  105. int Fsetq(int );
  106.  
  107. extern struct Lisp_Subr Squote;
  108.  
  109. int Fquote(int );
  110.  
  111. extern struct Lisp_Subr Sfunction;
  112.  
  113. int Ffunction(int );
  114.  
  115. extern struct Lisp_Subr Sinteractive_p;
  116.  
  117. int Finteractive_p(void);
  118.  
  119. extern struct Lisp_Subr Sdefun;
  120.  
  121. int Fdefun(int );
  122.  
  123. extern struct Lisp_Subr Sdefmacro;
  124.  
  125. int Fdefmacro(int );
  126.  
  127. extern struct Lisp_Subr Sdefvar;
  128.  
  129. int Fdefvar(int );
  130.  
  131. extern struct Lisp_Subr Sdefconst;
  132.  
  133. int Fdefconst(int );
  134.  
  135. extern struct Lisp_Subr Suser_variable_p;
  136.  
  137. int Fuser_variable_p(int );
  138.  
  139. extern struct Lisp_Subr SletX;
  140.  
  141. int FletX(int );
  142.  
  143. extern struct Lisp_Subr Slet;
  144.  
  145. int Flet(int );
  146.  
  147. extern struct Lisp_Subr Swhile;
  148.  
  149. int Fwhile(int );
  150.  
  151. extern struct Lisp_Subr Smacroexpand;
  152.  
  153. int Fmacroexpand(int , int );
  154.  
  155. extern struct Lisp_Subr Scatch;
  156.  
  157. int Fcatch(int );
  158.  
  159. int internal_catch(int tag,
  160.                    int (* func)(),
  161.                    int arg);
  162.  
  163. void unwind_to_catch(struct catchtag * catch,
  164.                      int value);
  165.  
  166. extern struct Lisp_Subr Sthrow;
  167.  
  168. int Fthrow(int , int );
  169.  
  170. extern struct Lisp_Subr Sunwind_protect;
  171.  
  172. int Funwind_protect(int );
  173.  
  174. extern struct handler * handlerlist;
  175.  
  176. extern struct Lisp_Subr Scondition_case;
  177.  
  178. int Fcondition_case(int );
  179.  
  180. int internal_condition_case(int (* bfun)(),
  181.                             int handlers,
  182.                             int (* hfun)());
  183.  
  184. int internal_condition_case_1(int (* bfun)(),
  185.                               int arg,
  186.                               int handlers,
  187.                               int (* hfun)());
  188.  
  189. extern struct Lisp_Subr Ssignal;
  190.  
  191. int Fsignal(int , int );
  192.  
  193. int wants_debugger(int list,
  194.                    int conditions);
  195.  
  196. int find_handler_clause(int handlers,
  197.                         int conditions,
  198.                         int sig,
  199.                         int data,
  200.                         int * debugger_value_ptr);
  201.  
  202. void error(char * m, ...);
  203. /*           char * a1,
  204.            char * a2,
  205.            char * a3);
  206.        */
  207.  
  208. extern struct Lisp_Subr Scommandp;
  209.  
  210. int Fcommandp(int );
  211.  
  212. extern struct Lisp_Subr Sautoload;
  213.  
  214. int Fautoload(int , int , int , int , int );
  215.  
  216. int un_autoload(int oldqueue);
  217.  
  218. int do_autoload(int fundef,
  219.                 int funname);
  220.  
  221. extern struct Lisp_Subr Seval;
  222.  
  223. int Feval(int );
  224.  
  225. extern struct Lisp_Subr Sapply;
  226.  
  227. int Fapply(int , int * );
  228.  
  229. int apply1(int fn,
  230.            int arg);
  231.  
  232. int call0(int fn);
  233.  
  234. int call1(int fn,
  235.           int arg1);
  236.  
  237. int call2(int fn,
  238.           int arg1,
  239.           int arg2);
  240.  
  241. int call3(int fn,
  242.           int arg1,
  243.           int arg2,
  244.           int arg3);
  245.  
  246. int call4(int fn,
  247.           int arg1,
  248.           int arg2,
  249.           int arg3,
  250.           int arg4);
  251.  
  252. int call5(int fn,
  253.           int arg1,
  254.           int arg2,
  255.           int arg3,
  256.           int arg4,
  257.           int arg5);
  258.  
  259. int call6(int fn,
  260.           int arg1,
  261.           int arg2,
  262.           int arg3,
  263.           int arg4,
  264.           int arg5,
  265.           int arg6);
  266.  
  267. extern struct Lisp_Subr Sfuncall;
  268.  
  269. int Ffuncall(int , int * );
  270.  
  271. int apply_lambda(int fun,
  272.                  int args,
  273.                  int eval_flag);
  274.  
  275. int funcall_lambda(int fun,
  276.                    int nargs,
  277.                    register int * arg_vector);
  278.  
  279. void grow_specpdl(void);
  280.  
  281. void specbind(int symbol,
  282.               int value);
  283.  
  284. void record_unwind_protect(int (* function)(),
  285.                            int arg);
  286.  
  287. int unbind_to(int count,
  288.               int value);
  289.  
  290. extern struct Lisp_Subr Sbacktrace_debug;
  291.  
  292. int Fbacktrace_debug(int , int );
  293.  
  294. extern struct Lisp_Subr Sbacktrace;
  295.  
  296. int Fbacktrace(void);
  297.  
  298. extern struct Lisp_Subr Sbacktrace_frame;
  299.  
  300. int Fbacktrace_frame(int );
  301.  
  302. int syms_of_eval(void);
  303.  
  304.